0 REM THE TRANSACTOR VOLUME 6 ISSUE 02        BITS & PIECES SECTION
5 REM SAVE"@0:HIRES TEXT",8
7 REM* TEXT ON HI-RES SCREEN *
8 REM* SUBROUTINE AT 1000    *
10 CLR:F=FRE(0):DIMA((-65536*(F<0)+F)/5-10):CLR
12 INPUT"STRING TO PRINT";M$
15 PRINT"[147]";
20 POKE53265,PEEK(53265)OR32
25 POKE53272,PEEK(53272)OR8
30 CX=10:CY=10
40 GOSUB2000 'PRINT STRING "M$"
50 GETA$:IFA$=""GOTO50
60 POKE53265,27:POKE53272,23
80 END
100 :
110 :
1000 REM* PUT TEXT ON HI-RES SCREEN *
1005 ROM=13*4096+1024*(PEEK(53272)AND2)
1010 C=ASC(CC$): PRINT"[147]";
1020 CC=C+64*(C>64ANDC<192)+128*(C>191)
1050 POKE56334,PEEK(56334)AND254
1060 POKE1,PEEK(1)AND251
1070 BR=ROM+CC*8:BS=8192+CY*320+CX*8
1080 FOR I=BR TO BR+7:POKE BS,PEEK(I)
1090 BS=BS+1:NEXT
1100 POKE1,PEEK(1)OR4
1110 POKE56334,PEEK(56334)OR1
1120 RETURN
1130 :
2000 REM PRINT STRING TO HI-RES SCREEN
2010 FOR J=1 TO LEN(M$):CC$=MID$(M$,J,1)
2020 GOSUB1000 'CHAR ON HI-RES SCREEN
2030 CX=CX+1:NEXT: RETURN